home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Sample Code / Snippets / Printing / Print multipage PICT / Print multipage PICT.p next >
Encoding:
Text File  |  1994-02-24  |  355 b   |  20 lines  |  [TEXT/PJMM]
  1. program PrintMultiPage;
  2.  
  3. uses
  4.     PrintTraps, PrintStuff;
  5.  
  6. var
  7.     ignoreError: OSErr;
  8.     ignoreResult: BOOLEAN;
  9.     event: EventRecord;
  10.     count: integer;
  11.     myPrintRecord: THPrint;
  12.  
  13. begin
  14.     myPrintRecord := THPrint(NewHandle(sizeof(TPrint)));
  15.     PrOpen;
  16.     PrintDefault(myPrintRecord);
  17.     ignoreResult := PageSetup(myPrintRecord);
  18.     ignoreResult := Print(myPrintRecord);
  19.  
  20. end.